home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / text / tex / TextPlus.lha / TextPlus / TPP501.lha / TPP / Rexx / 1.preview < prev    next >
Encoding:
Text File  |  1994-01-06  |  266 b   |  10 lines

  1. /* brings TextPlus to front (started from Preview) */
  2. options results
  3.  
  4. IF (SHOW('P', 'TextPlus')) THEN DO
  5.     ADDRESS 'TextPlus' 'ScreenToFront'
  6.     ADDRESS 'TextPlus' 'WindowToFront'
  7.     ADDRESS 'TextPlus' 'GetName'
  8.     ADDRESS 'TextPlus' 'Activate' result
  9.     END
  10.